home *** CD-ROM | disk | FTP | other *** search
/ Usenet 1993 July / InfoMagic USENET CD-ROM July 1993.ISO / sources / unix / volume24 / faxpax / part04 < prev    next >
Encoding:
Internet Message Format  |  1991-03-12  |  53.6 KB
  1. Subject:  v24i042:  Email fax-sending package, Part04/05
  2. Newsgroups: comp.sources.unix
  3. Approved: rsalz@uunet.UU.NET
  4. X-Checksum-Snefru: aa7f3a8f 27b96e5b 6309bc88 b104f594
  5.  
  6. Submitted-by: klaus u schallhorn <cnix!klaus>
  7. Posting-number: Volume 24, Issue 42
  8. Archive-name: faxpax/part04
  9.  
  10. #! /bin/sh
  11. # This is a shell archive.  Remove anything before this line, then feed it
  12. # into a shell via "sh file" or similar.  To overwrite existing files,
  13. # type "sh file -c".
  14. # The tool that generated this appeared in the comp.sources.unix newsgroup;
  15. # send mail to comp-sources-unix@uunet.uu.net if you want that tool.
  16. # Contents:  Readme faxhost/faxfonts/diykit.h
  17. #   faxhost/faxfonts/hires.uue faxhost/faxfonts/lores.uue
  18. #   faxhost/fntwrite.c faxhost/pbmtog3.c faxhost/sierracmd.h
  19. #   sample.fax.list
  20. # Wrapped by rsalz@litchi.bbn.com on Wed Mar 13 14:08:03 1991
  21. PATH=/bin:/usr/bin:/usr/ucb ; export PATH
  22. echo If this archive is complete, you will see the following message:
  23. echo '          "shar: End of archive 4 (of 5)."'
  24. if test -f 'Readme' -a "${1}" != "-c" ; then 
  25.   echo shar: Will not clobber existing file \"'Readme'\"
  26. else
  27.   echo shar: Extracting \"'Readme'\" \(6969 characters\)
  28.   sed "s/^X//" >'Readme' <<'END_OF_FILE'
  29. XThis  is   faxpak   [Copyright   (C)   1991   klaus   schallhorn,
  30. Xklaus@cnix.uucp]
  31. X
  32. Xfaxpak currently runs on Suns only - not because it uses any spe-
  33. Xcial  SunOs features, but because I don't have access to anything
  34. Xelse. I developed faxpak mainly on a 4/60, then  moved  it  to  a
  35. X3/60 that does all our spooling.
  36. X
  37. XApart from [temporary] hardware and  typeface  restrictions  [see
  38. Xbelow]  faxpak is quite flexible. It allows faxes to be sent from
  39. Xany networked machine. It allows aliases and distribution  lists.
  40. XEntries  in  such  lists needing a special "for the attention of"
  41. Xstring are forked out as separate jobs.  If you have more than  1
  42. Xfax  modem,  faxpak  automatically  shares the load between these
  43. Xmodems. This includes splitting of batches to distribution  lists
  44. Xinto several queues.
  45. X
  46. Xfaxpak enforces permissions. You can set faxpak up to send  local
  47. Xfaxes  any  time, long distance ones and international ones to be
  48. Xsent at cheap rates only. You can enforce the sending of faxes to
  49. Xany  given  phone  number at fixed times. And you can permit some
  50. Xusers to override these time restrictions.
  51. X
  52. Xfaxpak was created when the post office  increased  our  contract
  53. Xpostage rates to an almost insane level. We therefore decided [as
  54. Xa small publishing house] to  deliver  our  newsletter  by  other
  55. Xmeans.  We  now  deliver  by mail(1) to subscribers' mailboxes at
  56. Xvarious online and video text systems, we allow direct modem con-
  57. Xnection to mbox [our 3/60] and we fax our newsletter.
  58. X
  59. Xfaxpak is used for oneoff faxes [and only if I can't email],  and
  60. Xhas  been  used  three  times  [we  publish every other week] for
  61. Xbatches of ~150 faxes @ five pages each to our  subscriber  list.
  62. XBatches of this size take a good two nights to send out, although
  63. Xthe pure transmission time is just under 12 hours  [the  rest  is
  64. Xengaged  phone lines, repeats because transmission errors, logins
  65. Xsneaking in on the faxmodems, etc].
  66. X
  67. Xfaxpak currently supports touchbase's 2496 fax modem  and  others
  68. Xthat  use  or emulate the sierra type fax chipset, such as zoom's
  69. Xmx 2400s. Early december I found someone willing  and  supposedly
  70. Xable  to ship a beta class2 modem. Unfortunately it seems to have
  71. Xbeen sent by bicycle.  It's supposed to be here "real soon now".
  72. X
  73. XFor this reason faxpak does [not yet] support other  modems,  nor
  74. Xdoes it allow incoming faxes.
  75. X
  76. XBecause of the peculiarities of the modems we use  faxpak  is  by
  77. Xfar   not   what  I  wanted.  It  now  works,  but  incorporating
  78. Xpostscript, TeX or other files has been delayed.
  79. X
  80. XPorting  faxpak  to  other  platforms  should  be  easy.  Writing
  81. Xwiring.c  was  supposed  to  be  easy  as well. Provided you have
  82. Xhardware flow control, it will be easy, however. I have not  been
  83. Xable  to  use XON/XOFF flow ctl under SunOs, although initial and
  84. Xparallel development under msdos showed xonoff to work  there.  I
  85. Xdon't  know  why it doesn't under SunOs. There's some interesting
  86. Xreference to a change to STREAMS and xon/xoff flow ctl  in  SunOs
  87. X4.1  in  the  user  manual for a CoALM Sbus card I just received.
  88. XI've done printer drivers and a terminal emulator using xonoff in
  89. Xthe  past  and  using SunOs, though, so I assume the modem has to
  90. Xtake a large part of any blame.
  91. X
  92. XJust to show you how "strange" the sierra type modems  are,  con-
  93. Xsider  incoming faxes: you have to check [for each incoming byte]
  94. Xwhether carrier is high or low in order  to  distinguish  whether
  95. Xthe  byte  received  is  fax data or some command or confirmation
  96. Xfrom the modem.
  97. X
  98. XSimilar problems were encountered with sending faxes.  You  first
  99. Xtalk  to  the  fax modem @ 2400 baud, change to 19200, then dial,
  100. Xand wait either for an XON [if using xonoff] or  for  CTS  to  go
  101. Xhigh,  before  you  [in the case of xon/xoff enable flow ctl and]
  102. Xstart squirting data. Between pages you turn  off  flow  control,
  103. Xonly to re-enable it for the next page. Weird.
  104. X
  105. XYou could, of course, write a special  device  driver  to  handle
  106. Xthis  [but  then you could have hardware dependencies in any pro-
  107. Xgram], or you could take a black box approach, as  some  vendors'
  108. Xtech  reps  seemed  to  slip: using a pc type mother board with a
  109. Xlarge buffer and a fax card built on top.
  110. X
  111. XIf you look at wiring.c you'll find that I  left  some  stubs  in
  112. Xthere  for using xonoff. Please don't tell me "xonoff flow ctl is
  113. Xeasy, it's done in such and such a way" unless you get it to work
  114. Xwith a sierra type modem. I found that the modem dropped the line
  115. Xwhen I was using xonoff, or that the  remote  fax  machine  timed
  116. Xout. Both not very useful.
  117. X
  118. X
  119. XAs far as I know touchbase's 2496 does not yet come officially as
  120. Xa  sierra type modem, although I bought their programmer's kit in
  121. XNov '90.  This kit [about $100 on top of the  modem  price],  for
  122. Xwhich  you have to sign a non disclosure agreement, consists of a
  123. X[ccitt implementing] t.30 prom, a document virtually identical to
  124. Xthe    "writefax.man"   document   posted   by   Nick   Pemberton
  125. X[nick@aimed.uucp] in message 8658@aimed.uucp on Dec  8th  '90  in
  126. Xalt.fax  and  other groups and a reprint of the t.4 file compres-
  127. Xsion specs. Nick told me that he  downloaded  the  document  from
  128. XZoom's  bulletin  board.  I enclose Nick's answer, in case you're
  129. Xinterested in that bbs.
  130. X
  131. XI decided to base faxpak on the publicly available  document.   I
  132. Xhave  ignored  as  non existent features offered by the touchbase
  133. X2496 but not mentioned in the public document. If I  ever  wanted
  134. Xto be tied down, I wouldn't use a modem.
  135. X
  136. XApart from that, zooms fax modem is supposed to be selling at $99
  137. X[Direct  Micro,  1-800-288-2887  or  614-771-8771],  which is, as
  138. Xmathemagical minded fellow administraters will observe,  somewhat
  139. Xless  than  the price for the touchbase upgrade alone. JDR Micro-
  140. Xdevices sells a 4800 baud fax modem for about $120. You're  bound
  141. Xto find quite a few more by investing in a copy of Byte.
  142. X
  143. XThe difficulties in getting faxpak to work reliably are the  rea-
  144. Xson  why  faxpak's  output  is limited. Being more concerned with
  145. Xgetting output at all the next stage  obviously  is  getting  the
  146. Xoutput  nicer.  faxpak  currently supports only its default fonts
  147. X[they're enclosed compressed && uuencoded], and hp laserjet  type
  148. Xfonts  [max  30 points], which are scaled to size on the fly [and
  149. Xthey're not pretty at low resolution].
  150. X
  151. XOver the next few weeks I plan to improve on this, and I plan  to
  152. Xclean  up spool.fax.c, which has become somewhat incomprehensible
  153. Xby the last minute addition of the "ftao" string feature  [origi-
  154. Xnally  I  assumed  someone  claiming fax receive capability would
  155. Xhave his own fax machine].
  156. X
  157. Xfaxpak includes source, FaxConfig [which builds char  set  depen-
  158. Xdent   font  sets  for  high  and  low  resolution,  faxconfig.h,
  159. Xfax.config, Makefile, and fax.1].
  160. X
  161. XBecause cnix was down for 6 days I'm going to finish this off  by
  162. Xjust  adding  a  file Howto.Install.  fax.8 pages will be done at
  163. Xsome time in the future - but then, a lot of things will be.
  164. X
  165. XEnjoy.
  166. X
  167. Xklaus
  168. END_OF_FILE
  169.   if test 6969 -ne `wc -c <'Readme'`; then
  170.     echo shar: \"'Readme'\" unpacked with wrong size!
  171.   fi
  172.   # end of 'Readme'
  173. fi
  174. if test -f 'faxhost/faxfonts/diykit.h' -a "${1}" != "-c" ; then 
  175.   echo shar: Will not clobber existing file \"'faxhost/faxfonts/diykit.h'\"
  176. else
  177.   echo shar: Extracting \"'faxhost/faxfonts/diykit.h'\" \(9104 characters\)
  178.   sed "s/^X//" >'faxhost/faxfonts/diykit.h' <<'END_OF_FILE'
  179. X/*
  180. X    diykit.h
  181. X
  182. X    defines names to the bitmaps in diykit.data and
  183. X    where to find a bitmap in data file
  184. X*/
  185. X
  186. X#define    fpc             159    /* f as in ibmpc */
  187. X#define    ptpc            160    /* Pt as in ibmpc */
  188. X#define    invexcl         161    /* inverted ! */
  189. X#define    cent            162    /* cent sign */
  190. X#define    pound           163    /* pound sign */
  191. X#define    currency        164    /* currency sign */
  192. X#define    yen             165    /* yen sign */
  193. X#define    brokenbar       166    /* broken bar */
  194. X#define    paragraph       167    /* paragraph sign */
  195. X#define    diaeresis       168    /* diaeresis */
  196. X#define    copyrite        169    /* copyright sign */
  197. X#define    femordind       170    /* fem. ordinal ind., a_ */
  198. X#define    angledleft      171    /* << */
  199. X#define    not             172    /* not sign, */
  200. X#define    softhyphen      173    /* soft hyphen, same as dash */
  201. X#define    tm              174    /* registered trade mark */
  202. X#define    macron          175    /* macron, high - */
  203. X#define    degree          176    /* degree sign */
  204. X#define    plusminus       177    /* +- */
  205. X#define    sup2            178    /* superscript 2 */
  206. X#define    sup3            179    /* superscript 3 */
  207. X#define    accacute        180    /* accent acute' */
  208. X#define    micro           181    /* micro sign */
  209. X#define    pilcrow         182    /* pilcrow, us paragraph */
  210. X#define    middot          183    /* middle dot, */
  211. X#define    cidilla         184    /* cidilla, */
  212. X#define    sup1            185    /* superscript 1 */
  213. X#define    mascordind      186    /* masc. ordinal ind., a_ */
  214. X#define    angledrite      187    /* >> */
  215. X#define    quarter         188    /* 1/4 */
  216. X#define    half            189    /* 1/2 */
  217. X#define    threequarts     190    /* 3/4 */
  218. X#define    invqu           191    /* inverted ? */
  219. X#define    Agr             192    /* A` */
  220. X#define    Aac             193    /* A' */
  221. X#define    Acirc           194    /* A^ */
  222. X#define    Atilde          195    /* A~ */
  223. X#define    Aumlaut         196    /* A umlaut */
  224. X#define    Aring           197    /* A with ring above */
  225. X#define    AE              198    /* AE */
  226. X#define    Ccidilla        199    /* C cidilla */
  227. X#define    Egr             200    /* E` */
  228. X#define    Eac             201    /* E' */
  229. X#define    Ecirc           202    /* E^ */
  230. X#define    Eumlaut         203    /* E umlaut */
  231. X#define    Igr             204    /* I` */
  232. X#define    Iac             205    /* I' */
  233. X#define    Icirc           206    /* I^ */
  234. X#define    Iumlaut         207    /* I umlaut */
  235. X#define    Eth             208    /* -D */
  236. X#define    Ntilde          209    /* N~ */
  237. X#define    Ogr             210    /* O` */
  238. X#define    Oac             211    /* O' */
  239. X#define    Ocirc           212    /* O^ */
  240. X#define    Otilde          213    /* O~ */
  241. X#define    Oumlaut         214    /* O umlaut */
  242. X#define    multipl         215    /* multiplication */
  243. X#define    Ooblique        216    /* O/ */
  244. X#define    Ugr             217    /* U` */
  245. X#define    Uac             218    /* U' */
  246. X#define    Ucirc           219    /* U^ */
  247. X#define    Uumlaut         220    /* U umlaut */
  248. X#define    Yac             221    /* Y' */
  249. X#define    Thorn           222    /* cap. icelandic thorn */
  250. X#define    germss          223    /* small german letter sharp 's' */
  251. X#define    agr             224    /* a` */
  252. X#define    aac             225    /* a' */
  253. X#define    acirc           226    /* a^ */
  254. X#define    atidle          227    /* a~ */
  255. X#define    aumlaut         228    /* a umlaut */
  256. X#define    adot            229    /* a dot */
  257. X#define    ae              230    /* ae */
  258. X#define    ccidilla        231    /* c cidilla */
  259. X#define    egr             232    /* e` */
  260. X#define    eac             233    /* e' */
  261. X#define    ecirc           234    /* e^ */
  262. X#define    eumlaut         235    /* e umlaut */
  263. X#define    igr             236    /* i` */
  264. X#define    iac             237    /* i' */
  265. X#define    icirc           238    /* i^ */
  266. X#define    iumlaut         239    /* i umlaut */
  267. X#define    eth             240    /* small icelandic eth */
  268. X#define    ntilde          241    /* n~ */
  269. X#define    ogr             242    /* o` */
  270. X#define    oac             243    /* o' */
  271. X#define    ocirc           244    /* o^ */
  272. X#define    otilde          245    /* o~ */
  273. X#define    oumlaut         246    /* o umlaut */
  274. X#define    div             247    /* division sign */
  275. X#define    ooblique        248    /* o/ */
  276. X#define    ugr             249    /* u` */
  277. X#define    uac             250    /* u' */
  278. X#define    ucirc           251    /* u^ */
  279. X#define    uumlaut         252    /* u umlaut */
  280. X#define    yac             253    /* y' */
  281. X#define    thorn           254    /* thorn */
  282. X#define    yumlaut         255    /* y umlaut */
  283. X
  284. X
  285. X/* sorted [by name] struct for bsearch, probably not the most efficient
  286. X   way to do him, but then, how often are we going to need this.
  287. X*/
  288. X
  289. Xstruct    DIY
  290. X{
  291. X    char    *charname;
  292. X    int    chardef;
  293. X} diy[] =
  294. X{
  295. X    "AE",           AE,                 /* AE */
  296. X    "Aac",          Aac,                /* A' */
  297. X    "Acirc",        Acirc,              /* A^ */
  298. X    "Agr",          Agr,                /* A` */
  299. X    "Aring",        Aring,              /* A with ring above */
  300. X    "Atilde",       Atilde,             /* A~ */
  301. X    "Aumlaut",      Aumlaut,            /* A umlaut */
  302. X    "Ccidilla",     Ccidilla,           /* C cidilla */
  303. X    "Eac",          Eac,                /* E' */
  304. X    "Ecirc",        Ecirc,              /* E^ */
  305. X    "Egr",          Egr,                /* E` */
  306. X    "Eth",          Eth,                /* -D */
  307. X    "Eumlaut",      Eumlaut,            /* E umlaut */
  308. X    "Iac",          Iac,                /* I' */
  309. X    "Icirc",        Icirc,              /* I^ */
  310. X    "Igr",          Igr,                /* I` */
  311. X    "Iumlaut",      Iumlaut,            /* I umlaut */
  312. X    "Ntilde",       Ntilde,             /* N~ */
  313. X    "Oac",          Oac,                /* O' */
  314. X    "Ocirc",        Ocirc,              /* O^ */
  315. X    "Ogr",          Ogr,                /* O` */
  316. X    "Ooblique",     Ooblique,           /* O/ */
  317. X    "Otilde",       Otilde,             /* O~ */
  318. X    "Oumlaut",      Oumlaut,            /* O umlaut */
  319. X    "Thorn",        Thorn,              /* cap. icelandic thorn */
  320. X    "Uac",          Uac,                /* U' */
  321. X    "Ucirc",        Ucirc,              /* U^ */
  322. X    "Ugr",          Ugr,                /* U` */
  323. X    "Uumlaut",      Uumlaut,            /* U umlaut */
  324. X    "Yac",          Yac,                /* Y' */
  325. X    "aac",          aac,                /* a' */
  326. X    "accacute",     accacute,           /* accent acute' */
  327. X    "acirc",        acirc,              /* a^ */
  328. X    "adot",         adot,               /* a dot */
  329. X    "ae",           ae,                 /* ae */
  330. X    "agr",          agr,                /* a` */
  331. X    "angledleft",   angledleft,         /* << */
  332. X    "angledrite",   angledrite,         /* >> */
  333. X    "atidle",       atidle,             /* a~ */
  334. X    "aumlaut",      aumlaut,            /* a umlaut */
  335. X    "brokenbar",    brokenbar,          /* broken bar */
  336. X    "ccidilla",     ccidilla,           /* c cidilla */
  337. X    "cent",         cent,               /* cent sign */
  338. X    "cidilla",      cidilla,            /* cidilla, */
  339. X    "copyrite",     copyrite,           /* copyright sign */
  340. X    "currency",     currency,           /* currency sign */
  341. X    "degree",       degree,             /* degree sign */
  342. X    "diaeresis",    diaeresis,          /* diaeresis */
  343. X    "div",          div,                /* division sign */
  344. X    "eac",          eac,                /* e' */
  345. X    "ecirc",        ecirc,              /* e^ */
  346. X    "egr",          egr,                /* e` */
  347. X    "eth",          eth,                /* small icelandic eth */
  348. X    "eumlaut",      eumlaut,            /* e umlaut */
  349. X    "femordind",    femordind,          /* fem. ordinal ind., a_ */
  350. X    "fpc",          fpc,                /* f as in ibmpc */
  351. X    "germss",       germss,             /* small german letter sharp 's' */
  352. X    "half",         half,               /* 1/2 */
  353. X    "iac",          iac,                /* i' */
  354. X    "icirc",        icirc,              /* i^ */
  355. X    "igr",          igr,                /* i` */
  356. X    "invexcl",      invexcl,            /* inverted ! */
  357. X    "invqu",        invqu,              /* inverted ? */
  358. X    "iumlaut",      iumlaut,            /* i umlaut */
  359. X    "macron",       macron,             /* macron, high - */
  360. X    "mascordind",   mascordind,         /* masc. ordinal ind., a_ */
  361. X    "micro",        micro,              /* micro sign */
  362. X    "middot",       middot,             /* middle dot, */
  363. X    "multipl",      multipl,            /* multiplication */
  364. X    "not",          not,                /* not sign, */
  365. X    "ntilde",       ntilde,             /* n~ */
  366. X    "oac",          oac,                /* o' */
  367. X    "ocirc",        ocirc,              /* o^ */
  368. X    "ogr",          ogr,                /* o` */
  369. X    "ooblique",     ooblique,           /* o/ */
  370. X    "otilde",       otilde,             /* o~ */
  371. X    "oumlaut",      oumlaut,            /* o umlaut */
  372. X    "paragraph",    paragraph,          /* paragraph sign */
  373. X    "pilcrow",      pilcrow,            /* pilcrow, us paragraph */
  374. X    "plusminus",    plusminus,          /* +- */
  375. X    "pound",        pound,              /* pound sign */
  376. X    "ptpc",         ptpc,               /* Pt as in ibmpc */
  377. X    "quarter",      quarter,            /* 1/4 */
  378. X    "softhyphen",   softhyphen,         /* soft hyphen, same as dash */
  379. X    "sup1",         sup1,               /* superscript 1 */
  380. X    "sup2",         sup2,               /* superscript 2 */
  381. X    "sup3",         sup3,               /* superscript 3 */
  382. X    "thorn",        thorn,              /* thorn */
  383. X    "threequarts",  threequarts,        /* 3/4 */
  384. X    "tm",           tm,                 /* registered trade mark */
  385. X    "uac",          uac,                /* u' */
  386. X    "ucirc",        ucirc,              /* u^ */
  387. X    "ugr",          ugr,                /* u` */
  388. X    "uumlaut",      uumlaut,            /* u umlaut */
  389. X    "yac",          yac,                /* y' */
  390. X    "yen",          yen,                /* yen sign */
  391. X    "yumlaut",      yumlaut                /* y umlaut */
  392. X};
  393. X
  394. X#define    MAX_DEF    sizeof(diy)/(sizeof(struct DIY))
  395. END_OF_FILE
  396.   if test 9104 -ne `wc -c <'faxhost/faxfonts/diykit.h'`; then
  397.     echo shar: \"'faxhost/faxfonts/diykit.h'\" unpacked with wrong size!
  398.   fi
  399.   # end of 'faxhost/faxfonts/diykit.h'
  400. fi
  401. if test -f 'faxhost/faxfonts/hires.uue' -a "${1}" != "-c" ; then 
  402.   echo shar: Will not clobber existing file \"'faxhost/faxfonts/hires.uue'\"
  403. else
  404.   echo shar: Extracting \"'faxhost/faxfonts/hires.uue'\" \(6635 characters\)
  405.   sed "s/^X//" >'faxhost/faxfonts/hires.uue' <<'END_OF_FILE'
  406. Xbegin 640 hires.data.Z
  407. XM'YV09O @@0%CQ@P "!,J7 A@0,.'#B-"G"@Q  "+"B5*9(B0X P:'$,"P "#
  408. XM) XX)TFJ+,F2) 00+T7*7.BQQDR&S  P"X")YP 8/S_P$VH 3%$&P)#^@;<T
  409. XM R"G!P^: 3 UI$<;-Y$B_0#N!SPVV, R&\N,#3"S/H!Q;0"/ 3Y&S."2+1L6
  410. XMFU>N6H$I]'A#(8( # 9X.#!XAH,9'L+P4QP&4^,9!6%X #.9 3;+ ?AE'F"&
  411. XMLX%AGQD,$XW!3&D8/%"/! #!(XZ;"CT ^ %@#J PMW.' !0#$&W9/ #P 6 .
  412. XM@#$ P\ D#P8L&* QSX'Y@,,!QMZ".6 G' "(N_?NX+];Q*@=-D$:ULL#T LL
  413. XM "#W&A\: #"_/OW[]N,[=.]^_?KS,:B7WT/\O6>@?^PAJ&![!A8HD7WGR7!3
  414. XM@1E@4F$#L&!X #@;_L"/AQMNB"&&%598H'KG':1>0@6VV*"!'GKHXHP'<G0>
  415. XM2"OF&%( [27HXXD)G6>3CNI]@(^12.)#Y'E8$>DD0]]]9Q4,-/2%(@#6@0& 
  416. XME@D" L"+$@D @)CV,0" F1BL-B4-KY5W # /@,,!'"2U! 8#=^:)YYYZMD32
  417. XMG'&^N69VY7T B*$T)OJBBTDF.64-Z6D7YP?P\( ##AC L2<(9G(  !X!P#, 
  418. XM, < @B:6#,# P!_\L(H2&)'2!$,- 9;WP%#\6'HI '    Y\W>$S@))FIFH 
  419. XM# 9H2MVE/.!!:9R/2JA>IP $-QP[ 3 S ",',.   QPP@ ,#FM[YAS_GGGOF
  420. XMNL4^JJ)V/^ 3+PP(T!L" ", XU6\.*3F:;NI!HP#!_$:^0 \&SZ*HW9OQCDG
  421. XM!I>2A$!O<P"SU%)XX( '20*+"RX&'N!P\,$# ,$0034,J=T9AKSA#![\P,$'
  422. XM&*^]UFNOX/C*(X_?'0" SPX $+2GGC[:I*3@4'II2RU=&B^_.)2DYYW4X<%#
  423. XML\_F;..L5DJJ%C@G$00&!F/K634?/[#S04[%CDTG02=Q]8!>6]?0YI,9402;
  424. XM?B*A3"C>V^E]$]\/WD>0#;$"OE#.X'R7'WB^1C[3X;4JOA!77"F$N=8Y'BZM
  425. XMY0H%';24['TGNGDPV/#NWJ2"XX"F)6$@>[U8;FD[>T B1..4-BP,VP'P/(#/
  426. XMN*J&8<P8YA@C 3$2,".#\\R8P(P999'#QAGZS*")R!QX(#SPO*L,FX/ C%K4
  427. XM^4;=J>KZJ2:)*:;448>/#_/S?C1L?X"S%-,!M[0O//QCGZK^@ \"7HQSLK)!
  428. XMUWZ'C >@@P,;BYI*0(  "FKI@@@ 0P;W!(/J<(!9S@H> J]C@[OASV+@@ $<
  429. XM"!) 8R'KA<?J7ZHX8$"FZ(]N)TO=W_#7*GX(L'^P L,/NI+"(/YP@#UD%:NF
  430. XM=(/$S42)/I3A^H(XQ"'"P(BULXYUAL-%X?0-!C>H'&P>@(P/H*-9EZ(3'#*8
  431. XMP2V!  QO] $8Y,A!E8#0C&1DXN=@@P</]/&(,HQ1% &IJCX:TH^RV=H-5G>3
  432. XM_Q%.;X]TR/_^QT3?W>0 _,!D%C>I14YB:84K9"$,3L*#I,')2XH4WTWP  ]6
  433. XM7O&5P( !,'K3FX/TY0?Z @8.P)9"4&;LEQ L6@YO<+^;^ $ Q^RD,CVIS'HY
  434. XMDUX&+* TF;C F\QO?O+.V:34V>),-U*/>&9@QSC$PPISQ\$ ZK^D#)IKP
  435. XM)GSP0#S'-2X>,,">-F! /F?  '[&@!'_A $S! H#-A34:E;C P<4RL0=7A).
  436. XM<D*)!*7&IXI.+54K@1@.LC:EJ*GG8O"0G4@9@ &2BI12E$J32E>STF.Z%)E?
  437. XMQ($8'^HPB=K)HC@- R-@@ T89 PU,# 8-@#0 *+^K"%PV^--\K>_B?9/)?][
  438. XM):Q$J1(\,,"J>'! 5CO*R)D\@!@?8 <.^(":/"'@9K-)&CP^!0 < ($!;P4'
  439. XM ^2*#P[DZAGX.,1:MX8#2SZQA^8TYQ (,=@HA>>PAHV38L$!+;ZJ<B:')*04
  440. XM)\N^<7$ 9")#V B#-,IBSH0// !MTR F.Y9X4%5Y<@ 85/NFUI*J?)#C:S5G
  441. XM,@]OU%:GN&6$3N? #-[.@0F_O0$:A.L#/!37CQ#,*$LZ^LZ99/-2EYK3G!S@
  442. XM.@Z]UK74I:YT)6HU?OC!NQUUZ&=]P <?#&Q@'_S@ZUX7HL:5CT$N&EGPYCNE
  443. XM'#A1)E $ @_T"P0\  %G.NM1J4KE  ,4F ,&X($!TN6/?_##P?6=*4<6>[H*
  444. XM"^W"%LXPAC>LX<42) =*G<D%-[G2TU7D0(PC\6K:M;4<=)4ABXU<BF<LXQK3
  445. XM^,8VEK&'89 #OS)D/ T!3W8W"[H6/[;(3_J'DO]QG1QX5B9 CO*B7E3D#\_V
  446. XM21_0%SA   ,N ^]@=9+J%>D !CK\@!L?8$1]FRL3/+!UI2O%'#P^.-*2VID 
  447. XM=OY8R'8 CQT0&4L\%N^3-G0P.I.$F1Z[;,@.!CX;Q8 @*UKK6I<)@X-12H5B
  448. XM$S,0Q R&%<+C [QX0' <#0,)#YJQ<Y9=(#_DP]J5E ,<^-Y>3_;H$,MD !SB
  449. XM$ PA,!]#&<H^P,:/L.>#2UQ:Y=$O=M*D )@:'L *#G 88I:#9J9E0W=.'C,8
  450. XM !_M8Y&XV<UP7HV<D8LID9K[W"(%+6B//2OU["XA YZRH@KD*%(_628C'O%V
  451. XM&I>S?-O.W_G&$P?*A@'&D@H0I0:C>K[-TH:K9&S <,H& & H#P!CX!D5*3\8
  452. XML'%VLUDD'Z X)$<>R8D\34FD%K23HOG/E@/TY2Z/.2/VX0V:'_O1108ITY3+
  453. XM\Y+@@P<_O[FIG=2PB-:IYRKY$QP"A4.:Q" &MG;2',!Q!WB$[+)YQ@ !((!G
  454. XMDNH9!QN 1P; T5*8ECH&R2;2 [!A)!P $ Y&C/LK5>CV#\#B <OD!P!\^/1N
  455. XM$^GD# A\X-E%>(#-)I<W/[*RU<H2!+S&4X&"!PAP (+JB(L#+\#'"6;M]!C<
  456. XM.R0EWUS)!X  T@\ $Z</50#^?/8K.PD/L-\8NF=/6CQP !\/X$2W;OYQ(B$T
  457. XM-4EG"9\,  SBB^<B?7NZRHDT#T\T/PP,@/X,$#%]&V##^AZP>EO,2D$0'%L&
  458. XM]W42(JVZ/O2-RGRK7=8'SRM,I\M@Z$2*9SSS['4,'.M8 P!#_G<&#-S@9@P 
  459. XMT!?MY"FE)@-1]W>L-GD@@#,\ PA 0P >0 #V9$]0]'UI%Q*_TCCAH3?V<3H#
  460. XMHA_@L7J2TQ%0YW<<,7H/ 7HD-Q'?IW@AX3.EPA\^HB CAE8C-H,]PB,#YGZ?
  461. XMQQ$&  (_N "@((0(  Q%B&2.5@/+AU9*@@_9\H2$$ !1*&]4Z"*T! @S@(6 
  462. XM,'$3=SJEACCJX0<8((8S@ %E& ,8@(9E6(8_X =MN',[AP<:((>'=&PV '\L
  463. XM,F4[4H5\Z")V>( WL5):!#S PP'88(A7&!4 $"[A$C(A<P/P (GZ%B2>=X$,
  464. XM\67XX &P5G\DM1I_  B?:"9!8Q\_( !_8 !GX AGX Q^ %H?]X4FR!! 0 "S
  465. XM>'+=5T&X>(NW>'*S.(LHXGDNR!'E55[FUC_D15[GIR^L1B/MU5YVV(-0@EC2
  466. XM:%C4.(V'98>NEQ&M\SH8A0&7]0  \ !/$4O@T&DTTT'A\@ ,<  ]L59T(E+J
  467. XM!0<;,BI[X7F]QQ$XI25(F'PVL'P3QG@J,08,< 9P80S(8 2((  )B0A"P) '
  468. XMR0Q&4$X[I1(<Y6A-1"19EF7_]@&@P)%2A5*<=W*_&$;[V!#VAUH8,$N\ 0@I
  469. XMB2?XER:3$P,W (CP(B]*$FXP:3FEMD@E66\Z*9.QN!!%=W0$29 020PF0 PB
  470. XMH)2$8 2'8 C$8 S$8 ;>I#X:59&T=@/!*!/_T&#^4)+'1DR#\U[H8W[O!9:4
  471. XM> /9R!'SYAO+R(<*(4@WL9/WB!"$!@ZXJ"6_ EM  P&I(E]5)I/^B!!S RVE
  472. XMDX%9I!)+9UV!Z5$W<4&KMWK@"(XLAI98$@,R560\P &;*7B>^9F>Z0 <()H?
  473. XMX ZE*8A9A)DTN2+_PP-PX)JP21T=1$CI]8J8:8DKTC.O)25X4VI]99GC@WRD
  474. XMLQ[?X9M;^3,.V(<O$F.@XYO0B)REDA?Q)A&%V72-N99/(DMD8RP8, "!P0 &
  475. XM4%)2(TMSB9D?5S, @ #IF9X8@ #MB0..YP-H()\ @ SU&0"(@)\#P _[N9[J
  476. XMJ2.^.9AM-:#JZ4QX@ #\D ",D  $P <-:B9N!@\!( P3&@!^$ "CUCDQ8%\W
  477. XMT4ZT80 ( *(/@ 'L& 2H8*)C@ 1_@ 0^P ]VY9\P"J ;BH<_IH<*X24&PAU 
  478. XMLXBS^3[>B ,>L)B"XF@@IA!F,A_[X25Z 0;DDXSH5Q2JI5K]XSZU%TS\T*+M
  479. XM1*2,E"7K 1_WT:3O]:2K-:93>B3#4Z6V=Z57>FP]IA!@6A0$  )@BFNXAC[K
  480. XM!3OM8Z8^:GMIBJ5L*CYB<@ @(*@%  H%0#=SRF]V2J;K0Z68PJ=VY:=$>F]E
  481. XMJ8^)6J?I<Z=EVG9H&JEK2J35U!W%ESZCXB).JJB9"@?<V*AZVJEJFJ6TE@-U
  482. XM*93_< #_P #!@*NZFJO,P #,@ '\ *P8\*O,\ /!8*PP$ S)B@?_P*QY\ _/
  483. XMRJ8"FA&(< #(D%P3A0&WF&]LU"<>=$<B5*I><D$P 'ZQDB9'2B & D6$1$5$
  484. XM)&:3!445:"/@-U-<HJ.$QZZ4Y:Y69$3QFD0]9!7@)RV!>E0-  @'FY(IJ:]'
  485. XMQ*]%]$K_*J]Z1Z\%8:1)<;%(H1 ,*T4."Z\_)+%+1+&^DZY)ZA]"! ]>@8(H
  486. XM.$DHRWE[ 7ZJQ"5>.A]FXD@KJ+*ST;*41+&>)1'1"0QD8[,X^T@LZQ4"JW )
  487. XMD1=Y$9<M.[0K6+0N&R3@-ZL:BT(LQ#&J\@\&H+4PU+4.L#[5P0/1=$!'JW(/
  488. XM  %GFP PH+9QX YM2T_W%+?YM$_]Q  N1U #95!L\'N0*K XEQ#H>A\EVSHU
  489. XMM30/EX\XU30#(Z36*;5/MQ!ZV8 [6I@19;@4=5&8BU$E :Z-=3+OMT<6P1T"
  490. XM  C$AR<DL5AS8KG;F;D7I;A8(T)^NSIG>[8;  .URW^+Q4TWQ;H5I;B7PIR>
  491. XM&P.^0WS$6WQ-5W0/(T'4P;L7]5S]$D*=2Q/O=YPAX9GA&9X_\1.1F3.XDX'9
  492. XMBRSV5U*"Y[?/F45WF;IXP%,\!0:,P+ZY)9 "*08,(+\V@ 'U:RFORQ6=]+(R
  493. XM::2">Q%*NB7#Z .25< "XW@(H&B9E3#TBIF0VZ7=<1]F,L &;,#P"9\*S&BL
  494. XM]WX[Y#C&RR<43%DB_$,7G, _JL$""WX*4:E%H1 A7,$B#+>PMFB:E<(S53I"
  495. XM=F$#S'ZU>:?ME8PT(E^ 2:\&&!)_  !'7*!(S!0A58QV=ED<D"0XV7 O]5(I
  496. XMC)L*06AS%C$"9!(P $  A+7W]T*&$ /,$ /<P _X$#,I')3M H, W!\)D65#
  497. XMQ&5<9FGP$#:<1@=P0 ]GEF8I?)P% L>5B1!TG$)=5FF?EL>A%'=\;&9HIF9$
  498. XM_)QP?+ )"[1-=\@$X66+K,=Q1P-P ,F 3,38"0 >  2GK % H,H;T+B';,>*
  499. XMK#2-+%6@+,J2[+DR0+5)B[$7JSE:ID)WW,FS'$2U_,>W++TRH'(%>[ (  C-
  500. XM?+ ^PQ"O# ?!+,N91LRA;,P""QE%%C(_P =G8 YC8 P!8 @!X @_@"[\$ >Y
  501. XM,<YS8 [D=37;3*,KHL6&1FFH8EF8A<(X*F/E.@.K61$]\F]9C&KW'#""U$E/
  502. XM+&O;C,4XS!WV4="%5F[LD]"N1E*QA@^-YKD?,2$]DG_Y-\82O<6EA="LIM"7
  503. XMQ0,,3:\S0+T)P<+Z:)<&3=$F[2$HS9DKS='/^3C<H2 )(8[BV);T9J8^*;TS
  504. XM4,H(XCCWH1! K9Q#W2@HQ]&SZL&EFR=9G)Q";2!0;23;/*V[K+29+')1AGQC
  505. XM;1%0*[#H(1,0  0*>TKBV,H;D$*])  XP(X/P V^B@%\0%JRL[A9,Z0R4:XT
  506. XM0,\.  2%K0! @-@+  R+K;%,/$J0C70[]W-!1Z\TL)H\'<#'"U$/0Q"275J 
  507. XMPIB6[=#$"1X1#6^<_39PF'$=Q+AH'914G116C=HU=72K'3NMS71H?9R"2J@@
  508. XM4 "_#0X%@$#(J]J?K72Z;=GE^]+&6[Q9G-JVC73(+=J>6R5%=GP6 9(@"62\
  509. XM&=@RP"9.TBXJ=0!W%U)JI+[8$ .8H-YK"#*2L9AS@YI:]-T"*M \0M )$7NR
  510. XM1WLB]3[!A'N<\ #M][*0,B$&0LCKHA#ZS=_FYM^V!^ ',.!22RN#8]H?/-L(
  511. XML> ,?F[_G7L"+K UL)I&BKD*'GL;WM<0T^$!+N$=(0,U0-JP!=%+G1#RYP'T
  512. XM9V=C#-),VB/^]QP < 8 ,(!8XN)!J1#!$1QQ9J:T)\4.%^1./I<N[M((,<8B
  513. X63>/R9.->5W\YKG\[SB,]#H!WX.2> A#!
  514. X 
  515. Xend
  516. END_OF_FILE
  517.   if test 6635 -ne `wc -c <'faxhost/faxfonts/hires.uue'`; then
  518.     echo shar: \"'faxhost/faxfonts/hires.uue'\" unpacked with wrong size!
  519.   fi
  520.   # end of 'faxhost/faxfonts/hires.uue'
  521. fi
  522. if test -f 'faxhost/faxfonts/lores.uue' -a "${1}" != "-c" ; then 
  523.   echo shar: Will not clobber existing file \"'faxhost/faxfonts/lores.uue'\"
  524. else
  525.   echo shar: Extracting \"'faxhost/faxfonts/lores.uue'\" \(4403 characters\)
  526.   sed "s/^X//" >'faxhost/faxfonts/lores.uue' <<'END_OF_FILE'
  527. Xbegin 640 lores.data.Z
  528. XM'YV09O P@0%CQ@P "!,B' " H<.&$ ,D?*B0X P:"A5B@($#SL:/,"" R$@2
  529. XM@,4:)1$R"X!I (P/_ R 80#L#[P,@ Z:R6C1!DF:/^"QP<:,&1M@/\ UP,>H
  530. XMJ%%L06DBM'@#(8,!'@[,\!"&7QA,,V!XF(DM +\!9@P,8S ,@QD8/ !L+(B#
  531. XMI \ 8P $ 10&T @ =_F , -F&)A@P,8 \P%G:L$<*0< DDP9D,24) G2@($9
  532. XM6(#)$ T $$T:(L// (!ICI%2]&G+@%++!I;Z\V>&HC7+(/DY Z8&L Z ^\%/
  533. XM.'#?J$MJ/HC9-NS/Q)T[KPB#!D;,V!$&H,T]N6:4V4E^P#<>NV:?X;-7IDZC
  534. XM:DK.8&3#9BA@-  &<GE6KUOR 3@.<," P4P$,C"3@ #ZQQYD)7WPW(/2 3)>
  535. XM>0D15 -G#<*# PYX,  #?O@<  P')C'P!S]\\.=8#:PUR \/=<%#&3[WP6  
  536. XM' S J&"%,-2P6TKXQ<7. (PXP  .)OKSAS_W-<EC#<R1] ,^," P B!3PD"B
  537. XMAT=R,)YPU-5P'4G^<8 '#AC, (A->&QT) ,<8/  / $ L2)X)+WA#![\@%%7
  538. XM8^!L)]D! #@  (EAHB>>AC@(*&"6 QK( !]\? !/F.Z1"0P/\( 1*1P\_,#.
  539. XM?1YU] $X8:JH'D0D4?0D@^&YJM!#N)D$@PT8IH<0.)*Y%ANJ^MG0HJZG(E0L
  540. XM9@39\*.NADJ6FF2&9G9KE!D- (P#'F'@(0#Q>18; -/Q:,.8&3V #Y)CF&.,
  541. XM!,S(P(P9[+!QABXX/& N=3;@F=%MP,@D$Y<OG8L!'!S@<Y>XBF9DDZ,>8A 4
  542. XMPQ_^@8]-^&::T0'(F"D@" C$!T;''G+  QX[.F:#J@K] 0X< ;IIX\M<2JPR
  543. XMOK JS,^'.(.1% Q@X&PB/R=2=T.N-OO,\\X]FP0 'TOK=\.PY2+# SX>?0P&
  544. XM"&#X<" &(S^ CM#+9H2'!T8S0%S98X\M-+4*!46K:7 '%930Y"IT #]*<Z:W
  545. XM20$2A ,X']#&XPWZ*H0'/#S# $P,@-R )3!_PP#'F7C$-7C""OF1]^9Z(U"E
  546. XMS#0.;K%"!A-<>>5LL&$&,V<P,P8C\7A@L- H)\2'!TCRP( -#,S 0 R,P, ,
  547. XM#&Q4S@>BCMU0LT+^C2Q@@04*N&')MC::DDT89,] ]I9BD)_WFFM.'0Y0,P^.
  548. XM\Y$6& 8S,9Q9+XT- '" WV&G# Y'.#N,>,\$8= A'M%R# [8EI /L ,'?)A)
  549. XM8XJ%!R P !P,>-$S+L4C'-0M(2=ZW1 (49D. L(_U/-;X1(RMK*5#0<(X$"]
  550. XM@"5 S-F.!]++GI8^! 8'@$%$(G)6!4>7D'EX(PR, .(<F#$')MP #3Y(&TC&
  551. XM5SN$5&Y# '( .'!XK?],C@>4&M_R;.<#''! A=@2CK6<,Z<Y42<'1$L9/X# 
  552. XM R#@ 0"! L8! .$  _#  $OZ!]YXE(/R < _A@IDH08IR$(.TC\$R4']$A(?
  553. XMSGBO6>#ZE=*\AQ\^$E!!J,HD'#>IR4["$9$PR,$%)0(M%NJ*CR,\94G^\0_'
  554. XMY,"%V@%7),,5GD3R,"5) 0$,YM2HGH&!#C_@QAF;"( WUL5[EHJ3MC!  &UY
  555. XM  ,[H* KMYB2 \ C3GMS)@ZL69$8$ 0SE]*;I237,R D#@;P^  ON@D#/Z9D
  556. XM3M@T&Y4.Q8%[5<B;BT2(< Q@(PA\P#ZE*<T/!#<5;Q(P):>"2\^28BA> H@!
  557. XMXVEG=5+R1N\A\YIHRIY&L\<'RQ6T1RD)UQPCY!P*?126"/'80E"ETI8:" /@
  558. XM>(!JO'G+8GY/+AX!Q@8 X0%P? 0#_*CD1XGYS[<9%2)38B<U2R(QX#F5$4_=
  559. XMAS>ZZ4U=+0PD6,6'1TT2@Z[J2D0 <M1/=VG*=L8@GR6YPS6U!X%F,@!W&X '
  560. XM^+@:@X,VB$IP\.6 .)).6"CM9EV]("[QP8#"-@D_^!DH55.9(>G]$1X@P "2
  561. XM7A"Z@L8 I6\[E5$1, !,!$":=*TI2?#0IHUFSXOX>  GJ$K,T<)0A@8R # D
  562. XM<YE[QF"I))F')\+0.T38 !L>@(>!$#"2>\H@C9CQ0(=L! 9K84N%7NRF#-Q9
  563. XMDMMI:WO\'  8MM.7,P @+NV4 5JEQ \0U(57="2 [H)F7+L& +T/$8VA7&,:
  564. XMRP KO(*%FZSTRRKC,G:DW)%-?!K3K=K(\5OA1:D!0+  4"" H*=L9PV6UQA\
  565. XM!& EA"#I@QBGI@T,LIVX2HD?TH2!&)#X!WX0JX#PH &UW5-8O(&-0C0<H6XJ
  566. XM*SO>@X$U.8 -#A_JK3BX0:=>;-<#X,,#V]L>!OYP+?O\P0!G<(8?F/;B_ *!
  567. XM %/BF):)BX I7?D]EV4L'WR@/1CX@ _6B@YLA .F%V-V,G#VH)R_55 ;\% X
  568. XM#9,3 '( #A"<B0$/\*Q<,< !'=_WLL245'Q4^>*ECA,#9V $,HR!" $@0@C,
  569. XM,$+K!&2I;@X-.X'CU@= P;-. R"IRHG!TU1Y "^"@W$<F&+MVGF#\28DJ1;5
  570. XM%:WMBM#*9H?6^?7/AB*=:6((X1"&((8Q4L=IT-*:L0CY!Y,87= ;N-!:_FHN
  571. XMA'6MZII&2,WA(DYF5%T[_Q 7CG/TD!G30^LM*FBVJ'(4]<P3 ^N19+LQ=1*C
  572. XMVTD^7?&  X4->, =X"5WY)BK.+!UV^#! U 1S&@J[.8 =36HV=(96?7.KRI)
  573. XM&1N+\WN$(X70!TU);QRX,-T'9HA,5<EOT9;D;P[ P0 8$/._C7M#"JD+ @" 
  574. XM  P@  <^0 , D!$ 1 P ;SO'. ZVJ',((  ?"6 $'T 4 &$$0'Q@1J.41H. 
  575. XM0 <!%7]  @>0SO.RI[J/(94Q0M9\*(Y@0'8BZJ8B$>(K;O$+VS4\T'C0A(>Q
  576. XM'ZR@.8C2=N4826OAW88>VKO__"[WZ_!+)G<'ATRPE7B!]9T??^=J#L!S ! 4
  577. XMP//>,KSD\UYYOC/^GJ]42+8C/WD<!<STF)>[>_ ^QLG N_6E7WSL44_, _R#
  578. XM <$ /@.8 50,,.,'P8!!,/#PCSRT$O5+Q9C&,, QCX%,2UT+5&QZ=EP,X8=0
  579. XMGSF1T71VOY[%#&A[G,IQ6_29= - _  C?^+.SU[UP^!'A&H (#!0DYO%'VD^
  580. XM<R+U9Q+'Q1PT(17OYW\Y X#TEWX$.%'VX2Q((2/\]39RXVS'A2<6)QIN4X%Q
  581. XM P]S4R''A1X,@7(=>%0/<8$5<5SN<8""<X(>R! J*((<<3WWXR;_P$\ZB#,<
  582. XM(#-E=5PU\P 0D  P$ ?ND#N[TSN_$SS#4SPC@SP$6%5- G[ T#QX\#R*)BG2
  583. XMLT(KZ%6[8BV$8H58"#T-,ST_>%8+ 0BR92!BF#Y9N(4A-%W,(80;  /;T89D
  584. XMN#5FV(77(5NRA1!XF(5ZR(4B& /0=A\,8  8X!+O51N\8B/7U86P1%8C@P/8
  585. XM  9!Q ACP !BL#M<@P,)58CN47? ,&8F!#!'DD*$J'[UEA ;N#0^<(H^@T(J
  586. XM%(>WE89K" :FB(HGI(IQ>%QT!P8R@1"[*(NI6(L_.%VN""VPZ$5@! =BY"V?
  587. XM4488*%XI4W;8HSV$-AZY-E=8IWXR4&3_L2$-@TXSQ$_&$ /,P ^^=G\R<$'?
  588. XM%TD(D4N[I"&)\TO!M((R,$+MIV_TR$OW"$S")((R<'( H'_\-X]]5H^]Q#,"
  589. XMJ8\\Y % H % L $ON)  Z4L/29")!@P(^(_VJ)'Y2) U0R@(  @G22@*J4L9
  590. XMZ9 CJ7YAH2MG-@;&$ "&L"1]09-GMH(S0%TDL6,;,4E QDV_<G\SL$BG01N+
  591. XM-B>PE25R44_M&(X']8J .&@?XI2$9D\P.4JS)8P8PI1N@I50R9.,E6U5V93S
  592. XME)51.0,N1(J *'*?,2%K>4M4^4=P*2'DL9:UTRL>N6@A%R%RR9-+Y8+&(DL2
  593. XM<9BG!H(8N!D* 0% P'\/  @;<#^\@@,.P W^PSWP$'<\\8Y^Y ! H ! L ""
  594. XMLS"-@E4"HE4K2 .+Y);R,R(M(U8;$8<T,)6]DA!@%9MC19L7Q)<&HD^PJ6(R
  595. XM1)L@YWF>!RRY*9RS^8,TH&#](CC)B57+N9HN-RN6 0"68BD<EQGOV%I6(1<[
  596. XM%B ]!A9O1U8'=W\TL$5)R2U.5%JFA5JJM8(7$F.$(E2D95JG53#Q*8(LTBIJ
  597. XMV)?MB9_9HY^KQ9]HI6@!BI_P6:#J!R4E49?655@8D%V#UUW?18!BDA)Q@4SX
  598. X7L%'<F!^9QY]E^3+$^$P22J'<!0C>%1<E
  599. X 
  600. Xend
  601. END_OF_FILE
  602.   if test 4403 -ne `wc -c <'faxhost/faxfonts/lores.uue'`; then
  603.     echo shar: \"'faxhost/faxfonts/lores.uue'\" unpacked with wrong size!
  604.   fi
  605.   # end of 'faxhost/faxfonts/lores.uue'
  606. fi
  607. if test -f 'faxhost/fntwrite.c' -a "${1}" != "-c" ; then 
  608.   echo shar: Will not clobber existing file \"'faxhost/fntwrite.c'\"
  609. else
  610.   echo shar: Extracting \"'faxhost/fntwrite.c'\" \(11391 characters\)
  611.   sed "s/^X//" >'faxhost/fntwrite.c' <<'END_OF_FILE'
  612. X#include <stdio.h>
  613. X#include <malloc.h>
  614. X#include <ctype.h>
  615. X
  616. X#include "../faxconfig.h"
  617. X
  618. X/*
  619. X    fntwrite.c
  620. X
  621. X    very preliminary kit to do text -> pbm.
  622. X
  623. X    currently uses some stuff I ripped off [my own] chartpak.
  624. X    knows about hpljet fonts, uses diy font to construct bitmap,
  625. X    doesn't know anything about faxing, however.
  626. X
  627. X    first released version 0.99 [desperado version]
  628. X    cleaned up Dec 18nd, '90
  629. X    Copyright (C) 1990, klaus schallhorn, klaus@cnix.uucp
  630. X
  631. X    Permission to use, copy, modify, and distribute this software 
  632. X    and its documentation for any purpose and without fee is hereby 
  633. X    granted, provided that the above copyright notice appear in 
  634. X    all copies and that both that copyright notice and this permission 
  635. X    notice appear in supporting documentation. 
  636. X
  637. X    This software is provided "as is" without express or implied warranty.
  638. X*/
  639. X
  640. X#ifndef    MAX_HITE
  641. X#define    MAX_HITE    3600    /* 12 in @ 300 dpi */
  642. X#endif
  643. X
  644. Xextern    FILE *outfp;
  645. X
  646. X#define    ESC        '\033'
  647. X#define    setpix(y,x)    (block[y][x>>3] |= bit[x&7])
  648. X
  649. Xstatic    unsigned char *block[MAX_HITE];
  650. Xstatic    int cols, lines, max_ln, max_col, xmax_used, ymax_used, font_hite, 
  651. X    spacelen, tablen, curX, curY;
  652. Xint    font_type, bm_len;
  653. X
  654. Xstatic    int x204[2700], y196[MAX_HITE], y97[MAX_HITE], *yptr;
  655. Xextern    int fax_mode;
  656. X
  657. Xextern    char *PGM;
  658. X
  659. Xstatic    unsigned char bit[] =
  660. X{
  661. X    0x80,
  662. X    0x40,
  663. X    0x20,
  664. X    0x10,
  665. X    0x08,
  666. X    0x04,
  667. X    0x02,
  668. X    0x01
  669. X};
  670. X
  671. Xstruct    fd    /* hp laserjet font header, fonts <= 30 pts/ old laserjet plus */
  672. X{        /* I don't have enough data on how fonts > 30 pts are done. */
  673. X        /* 4.2.91: have now, will add this later */
  674. X    unsigned char    null, one;
  675. X    unsigned char    two;
  676. X    unsigned char    fon_type;
  677. X    unsigned char    four, five;
  678. X    unsigned char    msb_base, base_line;
  679. X    unsigned char    eigth, cell_width;
  680. X    unsigned char    msb_cell_hite, cell_hite;
  681. X    unsigned char    orient;
  682. X    unsigned char    spacing;
  683. X    unsigned char    symbol, set;
  684. X    unsigned char    msb_pitch, pitch;
  685. X    unsigned char    msb_hite, hite;
  686. X    unsigned char    tw, twone;
  687. X    unsigned char    twtwo;
  688. X    unsigned char    style;
  689. X    unsigned char    stroke;
  690. X    unsigned char    type_face;
  691. X} fdata;
  692. X
  693. Xstruct    cd    /* char header for same */
  694. X{
  695. X    unsigned char     null,
  696. X            one,
  697. X            two,
  698. X            three,
  699. X            orient,
  700. X            five;
  701. X    unsigned char    msb_l_offset, l_offset;
  702. X    unsigned char    msb_t_offset, t_offset;
  703. X    unsigned char    msb_width, width;
  704. X    unsigned char    msb_hite, hite;
  705. X    unsigned char    msb_delta, delta;
  706. X} cdata;
  707. X
  708. Xstruct    FNT_BITMAP    /* one for each char */
  709. X{
  710. X    short len, hite, clen, toffs, loffs;
  711. X    unsigned char **CH;
  712. X    short *SH;
  713. X} font[256];
  714. X
  715. Xint    (*prt_func)();    /* function to copy a character bitmap */
  716. Xint    prt_bmchr(), prt_hpchr();
  717. X
  718. Xfont_init(name)
  719. Xchar *name;
  720. X{
  721. X    FILE *hp;
  722. X    int i, *Yptr;
  723. X    char tmp[4];
  724. X
  725. X    struct FNT_BITMAP *cf;
  726. X    double x, dpi;
  727. X
  728. X    for (i=0; i<256; i++)    /* just to be safe */
  729. X    {
  730. X        cf = &font[i];
  731. X        cf->CH = (unsigned char **)NULL;
  732. X        cf->SH = (short *)NULL;
  733. X        cf->len = cf->hite = cf->clen = cf->toffs = 0;
  734. X    }
  735. X
  736. X    if ((hp = fopen(name, "r")) == NULL)
  737. X    {
  738. X        fprintf(stderr,"%s: can't open %s font\n",PGM,name);
  739. X        return(ERROR);
  740. X    }
  741. X
  742. X    if (fread(tmp, sizeof(char), 3, hp) != 3)
  743. X    {
  744. X        fprintf(stderr,"%s: can't read fontfile %s\n",PGM,name);
  745. X        return(ERROR);
  746. X    }
  747. X    if (!strncmp(tmp, "fxL", 3))
  748. X    {
  749. X        font_type = COARSE;
  750. X        bm_len = 16;
  751. X        prt_func = prt_bmchr;
  752. X        i = rd_bmfont(hp);
  753. X    }
  754. X    else if (!strncmp(tmp, "fxH", 3))
  755. X    {
  756. X        font_type = FINE;
  757. X        prt_func = prt_bmchr;
  758. X        bm_len = 32;
  759. X        i = rd_bmfont(hp);
  760. X    }
  761. X    else if (!strncmp(tmp, "\033)s", 3))
  762. X    {
  763. X        font_type = HP;
  764. X        prt_func = prt_hpchr;
  765. X        i = rd_hpfont(hp);
  766. X    }
  767. X    else
  768. X    {
  769. X        fprintf(stderr,"%s: header doesn't look like a font: %02x%02x%02x\n",
  770. X            tmp[0],tmp[1],tmp[2]);
  771. X        return(ERROR);
  772. X    }
  773. X
  774. X    if (i)
  775. X        return(ERROR);
  776. X
  777. X    fclose(hp);
  778. X
  779. X    if (font_type == HP)
  780. X    {
  781. X        for (i=1; i<2700; i++)
  782. X        {
  783. X            x = (double)i * 204.15;
  784. X            x /= 300.0;
  785. X            x204[i] = (int)x;
  786. X        }
  787. X        if (fax_mode == 1)
  788. X        {
  789. X            Yptr = yptr = y97;
  790. X            dpi = 97.79;
  791. X        }
  792. X        else    
  793. X        {
  794. X            Yptr = yptr = y196;
  795. X            dpi = 195.58;
  796. X        }
  797. X        for (i=1; i<MAX_HITE; i++)
  798. X        {
  799. X            x = (double)i * dpi;
  800. X            x /= 300.0;
  801. X            *Yptr++ = (int)x;
  802. X        }
  803. X    }
  804. X    return(0);
  805. X}
  806. X
  807. Xmk_bm(x,y)
  808. Xint x,y;
  809. X{
  810. X    int i;
  811. X
  812. X    if (x%32)            /* set to 32bit/4byte boundary */
  813. X        x = x+32-(x%32);
  814. X    x /= 8;
  815. X
  816. X    for (i=0; i<y; i++)
  817. X    {
  818. X        if ((block[i] = (unsigned char *)calloc(x,sizeof(unsigned char))) == NULL)
  819. X        {
  820. X            fprintf(stderr,"%s: not enough memory\n",PGM);
  821. X            return(ERROR);
  822. X        }
  823. X    }
  824. X
  825. X    for (; i<MAX_HITE; i++)
  826. X        block[i] = NULL;
  827. X
  828. X    cols = x;
  829. X    lines = y;
  830. X    max_ln = lines-1;
  831. X    max_col = (cols*8)-1;
  832. X    return(0);
  833. X}
  834. X
  835. Xend_bm()
  836. X{
  837. X    int i, j;
  838. X    extern char tname[];
  839. X
  840. X    ymax_used = min(ymax_used+4, MAX_HITE);
  841. X
  842. X    if (fprintf(outfp,"P4\n%d\n%d\n",(xmax_used*8),ymax_used) == EOF)
  843. X    {
  844. X        fprintf(stderr,"%s: can't init pbmfile %s\n",PGM,tname);
  845. X        return(ERROR);
  846. X    }
  847. X    for (i=0; i<ymax_used; i++)
  848. X    {
  849. X        if ((j = fwrite(block[i], 1, xmax_used, outfp)) != xmax_used)
  850. X        {
  851. X            fprintf(stderr,"%s: premature EOF after %d bytes of %d, line %d of %d\n",
  852. X                PGM,j,xmax_used,i,ymax_used);
  853. X            return(ERROR);
  854. X        }
  855. X        (void)memset(block[i], '\0', xmax_used);
  856. X    }
  857. X    return(0);
  858. X}
  859. X
  860. Xrd_hpfont(hp)
  861. XFILE *hp;
  862. X{
  863. X    struct FNT_BITMAP *cf;
  864. X    int cur_char, c, i, j, len, hite;
  865. X    char nbuf[80];
  866. X
  867. X    i = 0;
  868. X    while (isdigit(c = getc(hp)))
  869. X        nbuf[i++] = c;
  870. X    nbuf[i] = '\0';
  871. X    i = atoi(nbuf);
  872. X    if (c != 'W')
  873. X    {
  874. X        fprintf(stderr,"%s: font garbled (W) ?\n",PGM);
  875. X        return(ERROR);
  876. X    }
  877. X    if (fread(&fdata, 26, 1, hp) != 1)
  878. X    {
  879. X        fprintf(stderr,"%s: font garbled (fread fdata) ?\n",PGM);
  880. X        return(ERROR);
  881. X    }
  882. X
  883. X    for (j=26; j<i; j++)
  884. X        c = getc(hp);
  885. X    spacelen = ((fdata.msb_pitch * 256) + fdata.pitch) / 4;
  886. X
  887. X/* loop through font until eof */
  888. X
  889. X    for (cur_char = 32; cur_char<256; )
  890. X    {
  891. X        if ((c = getc(hp)) != ESC)
  892. X        {
  893. X                /* some fonts have strange garbage at the beginning */
  894. X                /* find a possible sync */
  895. X            if (cur_char == ' ')
  896. X            {
  897. X                while ((c = getc(hp)) != EOF)
  898. X                    if (c == ESC)
  899. X                        break;
  900. X                if (c == EOF)
  901. X                    break;
  902. X                continue;
  903. X            }
  904. X            break;
  905. X        }
  906. X        if ((c = getc(hp)) != '*')
  907. X        {
  908. X            fprintf(stderr,"%s: no '*' at char %d\n",PGM,cur_char);
  909. X            return(ERROR);
  910. X        }
  911. X        if ((c = getc(hp)) != 'c')
  912. X        {
  913. X            fprintf(stderr,"%s: no 'c' at char %d\n",PGM,cur_char);
  914. X            return(ERROR);
  915. X        }
  916. X
  917. X        i=0;
  918. X        while (isdigit(c = getc(hp)))
  919. X            nbuf[i++] = c;
  920. X        nbuf[i] = '\0';
  921. X        i = atoi(nbuf);
  922. X        if (c != 'E' || i < cur_char)
  923. X        {
  924. X            fprintf(stderr,"%s: no E at char %d [%d]\n",PGM,cur_char,i);
  925. X            return(ERROR);
  926. X        }
  927. X        cur_char = i;
  928. X        cf = &font[cur_char];
  929. X        if ((c = getc(hp)) != ESC)
  930. X        {
  931. X            fprintf(stderr,"%s: no ESC for char descr %d\n",PGM,cur_char);
  932. X            return(ERROR);
  933. X        }
  934. X        if ((c = getc(hp)) != '(')
  935. X        {
  936. X            fprintf(stderr,"%s: no '(' at char %d\n",PGM,cur_char);
  937. X            return(ERROR);
  938. X        }
  939. X        if ((c = getc(hp)) != 's')
  940. X        {
  941. X            fprintf(stderr,"%s: no 's' at char %d\n",PGM,cur_char);
  942. X            return(ERROR);
  943. X        }
  944. X
  945. X        i=0;
  946. X        while (isdigit(c = getc(hp)))
  947. X            nbuf[i++] = c;
  948. X        nbuf[i] = '\0';
  949. X        i = atoi(nbuf);
  950. X        if (c != 'W')
  951. X        {
  952. X            fprintf(stderr,"%s: no W after char descr width at char %d\n",PGM,cur_char);
  953. X            return(ERROR);
  954. X        }
  955. X        if (fread(&cdata, 16, 1, hp) != 1)
  956. X        {
  957. X            fprintf(stderr,"%s: font garbled (fread cdata) at char %d\n",PGM,cur_char);
  958. X            return(ERROR);
  959. X        }
  960. X
  961. X        len = (cdata.msb_width * 256) + cdata.width;
  962. X        if (len%8)
  963. X            len = len/8 + 1;
  964. X        else len /= 8;
  965. X        cf->len = len;
  966. X
  967. X        hite = (cdata.msb_hite * 256) + cdata.hite;
  968. X        cf->hite = hite;
  969. X        if (cf->hite > 128)
  970. X        {
  971. X            fprintf(stderr,"%s: wrong fonthite char %03d, hite %d\n",
  972. X                PGM,cur_char,cf->hite);
  973. X            return(ERROR);
  974. X        }
  975. X
  976. X        cf->clen = 
  977. X            ((cdata.msb_delta * 256) + cdata.delta) / 4;
  978. X
  979. X        cf->toffs = 
  980. X            (cdata.msb_t_offset * 256) + cdata.t_offset;
  981. X
  982. X        cf->loffs = 
  983. X            (cdata.msb_l_offset * 256) + cdata.l_offset;
  984. X
  985. X        if ((cf->CH = (unsigned char **)malloc(hite * sizeof(unsigned char *))) == (unsigned char **)NULL)
  986. X        {
  987. X            fprintf(stderr,"%s: not enough memory for bitmap array char %d\n",
  988. X                PGM,cur_char);
  989. X            return(ERROR);
  990. X        }
  991. X
  992. X        for (i=0; i<hite; i++)
  993. X        {
  994. X            if ((cf->CH[i] = (unsigned char *)malloc(len)) == NULL)
  995. X            {
  996. X                fprintf(stderr,"%s: not enough memory for bitmap at char %d\n",
  997. X                    PGM,cur_char);
  998. X                return(ERROR);
  999. X            }
  1000. X            if (fread(cf->CH[i], len, 1, hp) != 1)
  1001. X            {
  1002. X                fprintf(stderr,"%s: can't fread char bitmap at char %d, hite %d\n",
  1003. X                    PGM,cur_char,i);
  1004. X                return(ERROR);
  1005. X            }
  1006. X        }
  1007. X    }
  1008. X    font_hite = fnthite();
  1009. X    tablen = 8*spacelen;
  1010. X    return(0);
  1011. X}
  1012. Xrd_bmfont(fp)
  1013. XFILE *fp;
  1014. X{
  1015. X    int i, lastc;
  1016. X    struct FNT_BITMAP *cf;
  1017. X    short cur_char;
  1018. X
  1019. X    for (cur_char=0;;)
  1020. X    {
  1021. X        lastc = cur_char;
  1022. X        if ((i = fread(&cur_char, sizeof(short), 1, fp)) != 1)
  1023. X        {
  1024. X            if (cur_char > 0x7e && (!i))
  1025. X                break;
  1026. X            fprintf(stderr,"%s: read error in font\n",PGM);
  1027. X            return(ERROR);
  1028. X        }
  1029. X        if (cur_char <= 0x20 || cur_char > 0xff)
  1030. X        {
  1031. X            fprintf(stderr,"%s: illegal curchar value %04x after char %3d\n",
  1032. X                PGM,cur_char,lastc);
  1033. X            return(ERROR);
  1034. X        }
  1035. X        cf = &font[cur_char];
  1036. X
  1037. X        if ((cf->SH = (short *)malloc(bm_len * sizeof(short))) == (short *)NULL)
  1038. X        {
  1039. X            fprintf(stderr,"%s: not enough memory for bitmap array char %d\n",
  1040. X                PGM,cur_char);
  1041. X            return(ERROR);
  1042. X        }
  1043. X
  1044. X        if (fread(cf->SH, sizeof(short), bm_len, fp) != bm_len)
  1045. X        {
  1046. X            fprintf(stderr,"%s: can't fread char bitmap at char %d\n",
  1047. X                PGM,cur_char);
  1048. X            return(ERROR);
  1049. X        }
  1050. X        cf->len = 16;
  1051. X        cf->hite = bm_len;
  1052. X    }
  1053. X    font_hite = bm_len;
  1054. X    spacelen = 16;
  1055. X    tablen = 96;
  1056. X    return(0);
  1057. X}
  1058. Xfnthite()
  1059. X{
  1060. X    int i;
  1061. X    struct FNT_BITMAP *cf;
  1062. X    int miny, maxy, cury;
  1063. X
  1064. X    miny = 30000;    /* let's be generous */
  1065. X    maxy = 0;
  1066. X
  1067. X    for (i=33; i<256; i++)
  1068. X    {
  1069. X        cf = &font[i];
  1070. X        if (cf->len)
  1071. X        {
  1072. X            cury = 1000 - cf->toffs;
  1073. X            if (cury < miny)
  1074. X                miny = cury;
  1075. X            if (cury+cf->hite > maxy)
  1076. X                maxy = cury+cf->hite;
  1077. X        }
  1078. X    }
  1079. X    return(maxy-miny);
  1080. X}
  1081. X
  1082. Xprintstr(s,y)
  1083. Xunsigned char *s;
  1084. Xint y;
  1085. X{
  1086. X    int done;
  1087. X
  1088. X    if (y >= lines)
  1089. X        return;
  1090. X
  1091. X    if (font_type == HP)
  1092. X        curX = 6*spacelen;
  1093. X    else curX = 120;
  1094. X
  1095. X    curY = y;
  1096. X
  1097. X    done = 0;
  1098. X    while (*s)
  1099. X    {
  1100. X        if (*s == '\n')
  1101. X            break;
  1102. X        else if (*s == ' ')
  1103. X        {
  1104. X            curX += spacelen;
  1105. X            ++s;
  1106. X        }
  1107. X        else if (*s == '\t')
  1108. X        {
  1109. X            int i, tab;
  1110. X            tab = 8-(done%8);
  1111. X            for (i=0; i<tab; i++)
  1112. X                curX += spacelen;
  1113. X            ++s;
  1114. X            done += tab-1;    /* that 1 is added below anyway */
  1115. X        }
  1116. X        else if ((*prt_func)(*s++))
  1117. X            break;
  1118. X
  1119. X        ++done;
  1120. X    }
  1121. X    xmax_used = 216;    /* 1728/8 */
  1122. X}
  1123. X
  1124. Xprt_hpchr(c)
  1125. Xunsigned char c;
  1126. X{
  1127. X    struct FNT_BITMAP *cf;
  1128. X    int i, j, k, curx, cury, localy;
  1129. X
  1130. X/* 
  1131. X   now, we're thinking in terms of 300 dpi, but we're actually
  1132. X   drawing at the fax resolution [either 97.79 or 195.58 dots per vertical inch],
  1133. X   which makes real sense at 3.85 or 7.7 dots per vert. mm [if not to me,
  1134. X   to someone, I hope].
  1135. X   the horizontal resolution is 204.15 dots per inch, or 8.04 dots per mm
  1136. X
  1137. X*/
  1138. X    cf = &font[c];
  1139. X    if (!cf->len)
  1140. X        return(0);
  1141. X
  1142. X    if (curX + cf->clen + cf->loffs >= max_col)
  1143. X        return(ERROR);
  1144. X
  1145. X    cury = curY - cf->toffs;
  1146. X    if (cury < 0)
  1147. X        return(ERROR);
  1148. X
  1149. X    if ((cury+cf->hite) >= lines)
  1150. X        return(ERROR);
  1151. X
  1152. X    curX += cf->loffs;
  1153. X    for (i=0; i<cf->hite; i++)
  1154. X    {
  1155. X        curx = curX;
  1156. X        localy = yptr[cury+i];
  1157. X
  1158. X        for (j=0; j<cf->len; j++)
  1159. X            for (k=0; k<8; k++,curx++)
  1160. X                if (cf->CH[i][j] & bit[k])
  1161. X                    setpix(localy, x204[curx]);
  1162. X    }
  1163. X    curX += cf->clen;
  1164. X    ymax_used = yptr[cury + cf->hite];
  1165. X    return(0);
  1166. X}
  1167. Xprt_bmchr(c)
  1168. Xunsigned char c;
  1169. X{
  1170. X    struct FNT_BITMAP *cf;
  1171. X    int i, cury;
  1172. X    short *s, *d;
  1173. X
  1174. X/*
  1175. X    since we're drawing on 16 bit boundaries [ever so coincidental]
  1176. X    we just mush two bytes of font data over into the bitmap
  1177. X    without even looking at the pixels
  1178. X*/
  1179. X    cf = &font[c];
  1180. X    if (!cf->len)
  1181. X        return(0);
  1182. X
  1183. X    if (curX + bm_len >= max_col)
  1184. X        return(ERROR);
  1185. X
  1186. X    if ((curY < 0) || ((curY+bm_len) >= lines))
  1187. X        return(ERROR);
  1188. X
  1189. X    s = cf->SH;
  1190. X    cury = curY;
  1191. X    for (i=0; i<bm_len; i++, cury++)
  1192. X    {
  1193. X        d = (short *)&block[cury][curX>>3];
  1194. X        *d = *s++;
  1195. X    }
  1196. X    curX += cf->len;
  1197. X    ymax_used = cury;
  1198. X    return(0);
  1199. X}
  1200. END_OF_FILE
  1201.   if test 11391 -ne `wc -c <'faxhost/fntwrite.c'`; then
  1202.     echo shar: \"'faxhost/fntwrite.c'\" unpacked with wrong size!
  1203.   fi
  1204.   # end of 'faxhost/fntwrite.c'
  1205. fi
  1206. if test -f 'faxhost/pbmtog3.c' -a "${1}" != "-c" ; then 
  1207.   echo shar: Will not clobber existing file \"'faxhost/pbmtog3.c'\"
  1208. else
  1209.   echo shar: Extracting \"'faxhost/pbmtog3.c'\" \(4990 characters\)
  1210.   sed "s/^X//" >'faxhost/pbmtog3.c' <<'END_OF_FILE'
  1211. X/* pbmtog3.c - read a portable bitmap and produce a Group 3 FAX file
  1212. X**
  1213. X** Copyright (C) 1989 by Paul Haeberli <paul@manray.sgi.com>.
  1214. X**
  1215. X** Permission to use, copy, modify, and distribute this software and its
  1216. X** documentation for any purpose and without fee is hereby granted, provided
  1217. X** that the above copyright notice appear in all copies and that both that
  1218. X** copyright notice and this permission notice appear in supporting
  1219. X** documentation.  This software is provided "as is" without express or
  1220. X** implied warranty.
  1221. X**
  1222. X** Added kludges so that sierra type fax modems work w/o getting themselves
  1223. X** into a knot: eol must appear on a byte boundary, same goes for eop
  1224. X** [although sometimes faxes can be sent with non aligned eols/eops,
  1225. X** aligning them, however, makes that "sometimes" into an "always"].
  1226. X** Page width must be 1728 pels, no more, no less, with sierra.
  1227. X** Made these kludges optional "-sierra", because I don't see the point
  1228. X** of penalising software for smarter class two modems, where all the messing
  1229. X** is done in hardware.
  1230. X** I include a copy of this mutilated pbmtog3.c with faxpak's fst version.
  1231. X** 26. jan 91, klaus schallhorn.
  1232. X*/
  1233. X
  1234. X#include <stdio.h>
  1235. X#include "pbm.h"
  1236. X#include "g3.h"
  1237. X#ifdef SYSV
  1238. X#include <string.h>
  1239. X#else /*SYSV*/
  1240. X#include <strings.h>
  1241. X#endif /*SYSV*/
  1242. X
  1243. X#define max(a,b) ((a) > (b) ? (a) : (b))
  1244. X
  1245. Xint reversebits, sierra;
  1246. X
  1247. Xmain( argc, argv )
  1248. Xint argc;
  1249. Xchar *argv[];
  1250. X    {
  1251. X    FILE *ifd;
  1252. X    bit *bitrow;
  1253. X    int argn, rows, cols, format, row, col, Cols, i;
  1254. X    char *usage = " [-reversebits] [pbmfile]";
  1255. X
  1256. X    pm_progname = argv[0];
  1257. X
  1258. X    argn = 1;
  1259. X    reversebits = sierra = 0;
  1260. X
  1261. X    if ( argn < argc  && argv[argn][0] == '-' )
  1262. X    {
  1263. X    if ( strncmp(argv[argn],"-reversebits",max(strlen(argv[argn]),2)) == 0 )
  1264. X        reversebits = 1;
  1265. X    else if ( strncmp(argv[argn],"-sierra",max(strlen(argv[argn]),2)) == 0 )
  1266. X        sierra = TRUE;
  1267. X    else pm_usage( usage );
  1268. X    argn++;
  1269. X    }
  1270. X    
  1271. X    if ( argn == argc )
  1272. X    ifd = stdin;
  1273. X    else
  1274. X    {
  1275. X    ifd = pm_openr( argv[argn] );
  1276. X    argn++;
  1277. X    }
  1278. X    
  1279. X    if ( argn != argc )
  1280. X    pm_usage( usage );
  1281. X
  1282. X    pbm_readpbminit( ifd, &cols, &rows, &format );
  1283. X    if (sierra)
  1284. X    Cols = max(1728, cols); /* sierra insists on at least 1728 pels */
  1285. X    else Cols = cols;
  1286. X    bitrow = pbm_allocrow( Cols );
  1287. X
  1288. X    /* Write out four extra rows to get things stabilized. */
  1289. X    for ( col = 0; col < Cols; col++ )
  1290. X    bitrow[col] = PBM_WHITE;
  1291. X
  1292. X    tofax( bitrow, Cols );
  1293. X    tofax( bitrow, Cols );
  1294. X    tofax( bitrow, Cols );
  1295. X    tofax( bitrow, Cols );
  1296. X
  1297. X    /* Write out bitmap. */
  1298. X    putinit();
  1299. X    for ( row = 0; row < rows; row++ )
  1300. X    {
  1301. X    pbm_readpbmrow( ifd, bitrow, cols, format );
  1302. X    for ( i=cols; i<Cols; i++)
  1303. X        bitrow[i] = PBM_WHITE;    /* pad bitmap if < 1728 */
  1304. X    tofax( bitrow, Cols );
  1305. X    }
  1306. X
  1307. X    /* And finish off. */
  1308. X    if (!sierra)
  1309. X    {
  1310. X    for( i = 0; i < 6; i++ )
  1311. X        puteol( );
  1312. X        flushbits( );
  1313. X    }
  1314. X    else puteop();    /* the terrible hack to guarantee multipage faxes */
  1315. X
  1316. X    pm_close( ifd );
  1317. X
  1318. X    exit( 0 );
  1319. X    }
  1320. X
  1321. Xtofax(bitrow,n)
  1322. Xbit *bitrow;
  1323. Xint n;
  1324. X{
  1325. X    int c = 0;
  1326. X
  1327. X    while(n>0) { 
  1328. X    c = 0;
  1329. X    while(*bitrow == PBM_WHITE && n>0) {
  1330. X        bitrow++;
  1331. X        c++;
  1332. X        n--;
  1333. X    }
  1334. X    putwhitespan(c);
  1335. X    c = 0;
  1336. X    if(n==0)
  1337. X        break;
  1338. X    while(*bitrow == PBM_BLACK && n>0) {
  1339. X        bitrow++;
  1340. X        c++;
  1341. X        n--;
  1342. X    }
  1343. X    putblackspan(c);
  1344. X    }
  1345. X    puteol();
  1346. X}
  1347. X
  1348. Xputwhitespan(c)
  1349. Xint c;
  1350. X{
  1351. X    int tpos;
  1352. X    tableentry *te;
  1353. X
  1354. X    if(c>=64) {
  1355. X    tpos = (c/64)-1;
  1356. X    te = mwtable+tpos;
  1357. X    c -= te->count;
  1358. X    putcode(te);
  1359. X    }
  1360. X    tpos = c;
  1361. X    te = twtable+tpos;
  1362. X    putcode(te);
  1363. X}
  1364. X
  1365. Xputblackspan(c)
  1366. Xint c;
  1367. X{
  1368. X    int tpos;
  1369. X    tableentry *te;
  1370. X
  1371. X    if(c>=64) {
  1372. X    tpos = (c/64)-1;
  1373. X    te = mbtable+tpos;
  1374. X    c -= te->count;
  1375. X    putcode(te);
  1376. X    }
  1377. X    tpos = c;
  1378. X    te = tbtable+tpos;
  1379. X    putcode(te);
  1380. X}
  1381. X
  1382. Xputcode(te)
  1383. Xtableentry *te;
  1384. X{
  1385. X    unsigned int mask;
  1386. X    int code;
  1387. X
  1388. X    mask = 1<<(te->length-1);
  1389. X    code = te->code;
  1390. X    while(mask) {
  1391. X     if(code&mask)
  1392. X        putbit(1);
  1393. X    else
  1394. X        putbit(0);
  1395. X    mask >>= 1;
  1396. X    }
  1397. X
  1398. X}
  1399. X
  1400. Xputeol()
  1401. X{
  1402. X    int i;
  1403. X
  1404. X    if (sierra)        /* eol must be byte aligned ........ .......X */
  1405. X    {
  1406. X    flushbits();    /* fflush pels, then add 11 zeros + 1 on bit */
  1407. X    putchar(0);    /* make that at least 11 zero bits */
  1408. X    putchar(reversebits?0x80:0x01);
  1409. X    }
  1410. X    else
  1411. X    {
  1412. X    for(i=0; i<11; i++)
  1413. X        putbit(0);
  1414. X    putbit(1);
  1415. X    }
  1416. X}
  1417. Xputeop()
  1418. X{
  1419. X    int i;
  1420. X
  1421. X    for (i=0; i<5; i++)    /* this is grossly overdoing the ccitt specs! */
  1422. X    {            /* but it makes sure multipage sierra faxes work */
  1423. X    putchar(0);
  1424. X    putchar(reversebits?0x08:0x10);
  1425. X    putchar(reversebits?0x80:0x01);
  1426. X    }
  1427. X    putchar(0);
  1428. X}
  1429. X
  1430. Xint shdata;
  1431. Xint shbit = 0x80;
  1432. X
  1433. Xputinit()
  1434. X{
  1435. X    shdata = 0;
  1436. X    shbit = reversebits ? 0x01 : 0x80;
  1437. X}
  1438. X
  1439. Xint putbit(d)
  1440. Xint d;
  1441. X{
  1442. X    if(d) 
  1443. X    shdata = shdata|shbit;
  1444. X    if ( reversebits )
  1445. X    shbit = shbit<<1;
  1446. X    else
  1447. X    shbit = shbit>>1;
  1448. X    if((shbit&0xff) == 0) {
  1449. X    putchar(shdata);
  1450. X    shdata = 0;
  1451. X    shbit = reversebits ? 0x01 : 0x80;
  1452. X    }
  1453. X}
  1454. X
  1455. Xflushbits( )
  1456. X{
  1457. X    if ( ( reversebits && shbit != 0x01 ) ||
  1458. X     ( ! reversebits && shbit != 0x80 ) ) {
  1459. X    putchar(shdata);
  1460. X    shdata = 0;
  1461. X    shbit = reversebits ? 0x01 : 0x80;
  1462. X    }
  1463. X}
  1464. END_OF_FILE
  1465.   if test 4990 -ne `wc -c <'faxhost/pbmtog3.c'`; then
  1466.     echo shar: \"'faxhost/pbmtog3.c'\" unpacked with wrong size!
  1467.   fi
  1468.   # end of 'faxhost/pbmtog3.c'
  1469. fi
  1470. if test -f 'faxhost/sierracmd.h' -a "${1}" != "-c" ; then 
  1471.   echo shar: Will not clobber existing file \"'faxhost/sierracmd.h'\"
  1472. else
  1473.   echo shar: Extracting \"'faxhost/sierracmd.h'\" \(4730 characters\)
  1474.   sed "s/^X//" >'faxhost/sierracmd.h' <<'END_OF_FILE'
  1475. X/*
  1476. X    sierracmd.h
  1477. X
  1478. X    additional mess for sierra type modem
  1479. X
  1480. X    Various tables for fast lookup.
  1481. X    first released version 0.99a [desperado version]
  1482. X    cleaned up Feb 21st '91.
  1483. X
  1484. X    Copyright (C) 1991, klaus schallhorn, klaus@cnix.uucp
  1485. X
  1486. X    Permission to use, copy, modify, and distribute this software 
  1487. X    and its documentation for any purpose and without fee is hereby 
  1488. X    granted, provided that the above copyright notice appear in 
  1489. X    all copies and that both that copyright notice and this permission 
  1490. X    notice appear in supporting documentation. 
  1491. X
  1492. X    This software is provided "as is" without express or implied warranty.
  1493. X*/
  1494. X
  1495. X
  1496. Xstatic    unsigned char eol_pat[] =    /* eop pattern, reversed */
  1497. X{
  1498. X    0x00,
  1499. X    0x10,
  1500. X    0x00,
  1501. X    0x01,
  1502. X    0x10,
  1503. X    0x00,
  1504. X    0x01,
  1505. X    0x10,
  1506. X    0x00,
  1507. X    0x01
  1508. X};
  1509. Xunsigned char faxbyte[]=    /* have to reverse every shitty byte */
  1510. X{
  1511. X    0x00,    0x80,    0x40,    0xc0,    0x20,    0xa0,    0x60,    0xe0,
  1512. X    0x10,    0x90,    0x50,    0xd0,    0x30,    0xb0,    0x70,    0xf0,
  1513. X    0x08,    0x88,    0x48,    0xc8,    0x28,    0xa8,    0x68,    0xe8,
  1514. X    0x18,    0x98,    0x58,    0xd8,    0x38,    0xb8,    0x78,    0xf8,
  1515. X    0x04,    0x84,    0x44,    0xc4,    0x24,    0xa4,    0x64,    0xe4,
  1516. X    0x14,    0x94,    0x54,    0xd4,    0x34,    0xb4,    0x74,    0xf4,
  1517. X    0x0c,    0x8c,    0x4c,    0xcc,    0x2c,    0xac,    0x6c,    0xec,
  1518. X    0x1c,    0x9c,    0x5c,    0xdc,    0x3c,    0xbc,    0x7c,    0xfc,
  1519. X    0x02,    0x82,    0x42,    0xc2,    0x22,    0xa2,    0x62,    0xe2,
  1520. X    0x12,    0x92,    0x52,    0xd2,    0x32,    0xb2,    0x72,    0xf2,
  1521. X    0x0a,    0x8a,    0x4a,    0xca,    0x2a,    0xaa,    0x6a,    0xea,
  1522. X    0x1a,    0x9a,    0x5a,    0xda,    0x3a,    0xba,    0x7a,    0xfa,
  1523. X    0x06,    0x86,    0x46,    0xc6,    0x26,    0xa6,    0x66,    0xe6,
  1524. X    0x16,    0x96,    0x56,    0xd6,    0x36,    0xb6,    0x76,    0xf6,
  1525. X    0x0e,    0x8e,    0x4e,    0xce,    0x2e,    0xae,    0x6e,    0xee,
  1526. X    0x1e,    0x9e,    0x5e,    0xde,    0x3e,    0xbe,    0x7e,    0xfe,
  1527. X    0x01,    0x81,    0x41,    0xc1,    0x21,    0xa1,    0x61,    0xe1,
  1528. X    0x11,    0x91,    0x51,    0xd1,    0x31,    0xb1,    0x71,    0xf1,
  1529. X    0x09,    0x89,    0x49,    0xc9,    0x29,    0xa9,    0x69,    0xe9,
  1530. X    0x19,    0x99,    0x59,    0xd9,    0x39,    0xb9,    0x79,    0xf9,
  1531. X    0x05,    0x85,    0x45,    0xc5,    0x25,    0xa5,    0x65,    0xe5,
  1532. X    0x15,    0x95,    0x55,    0xd5,    0x35,    0xb5,    0x75,    0xf5,
  1533. X    0x0d,    0x8d,    0x4d,    0xcd,    0x2d,    0xad,    0x6d,    0xed,
  1534. X    0x1d,    0x9d,    0x5d,    0xdd,    0x3d,    0xbd,    0x7d,    0xfd,
  1535. X    0x03,    0x83,    0x43,    0xc3,    0x23,    0xa3,    0x63,    0xe3,
  1536. X    0x13,    0x93,    0x53,    0xd3,    0x33,    0xb3,    0x73,    0xf3,
  1537. X    0x0b,    0x8b,    0x4b,    0xcb,    0x2b,    0xab,    0x6b,    0xeb,
  1538. X    0x1b,    0x9b,    0x5b,    0xdb,    0x3b,    0xbb,    0x7b,    0xfb,
  1539. X    0x07,    0x87,    0x47,    0xc7,    0x27,    0xa7,    0x67,    0xe7,
  1540. X    0x17,    0x97,    0x57,    0xd7,    0x37,    0xb7,    0x77,    0xf7,
  1541. X    0x0f,    0x8f,    0x4f,    0xcf,    0x2f,    0xaf,    0x6f,    0xef,
  1542. X    0x1f,    0x9f,    0x5f,    0xdf,    0x3f,    0xbf,    0x7f,    0xff
  1543. X};
  1544. X
  1545. X            /* faxes are compressed to reduce tx time */
  1546. X            /* then they're expanded, to increase tx time */
  1547. Xstatic    int not_so_fast[] =
  1548. X{
  1549. X    20, 40, 10, 10, 5, 40, 20, 0
  1550. X};            /* at least to allow for rx hardware catch up */
  1551. X            /* as in carriage return [think typewriter] */
  1552. X
  1553. X
  1554. X            /* possible answers from sierra type gizzmo */
  1555. Xstruct    SIERRA_CMDSET    /* not all of them are used */
  1556. X{
  1557. X    char    *txtstring,
  1558. X        retcode;
  1559. X} sierra_cmds[]=
  1560. X{
  1561. X/* 0*/    "OK",            '0',    /* sort of a wild card */
  1562. X/* 1*/    "ANSWER TONE",        'a',    /* Answer tone detected */
  1563. X/* 2*/    "CONFIRM TO RX",    'g',    /* confirmation to receive */
  1564. X/* 3*/    "CONNECT 2400",        'w',    /* connection established @ 2400 baud */
  1565. X/* 4*/    "CONNECT 4800",        'x',    /* @ 4800 */
  1566. X/* 5*/    "CONNECT 7200",        'y',    /* @ 7200 */
  1567. X/* 6*/    "CONNECT 9600",        'z',    /* @ 9600 */
  1568. X/* 7*/    "CRP",            'c',    /* come again? */
  1569. X/* 8*/    "REMOTE CAPABILITIES",    'b',    /* capabilities claimed */
  1570. X/* 9*/    "DCN",            'd',    /* hangup */
  1571. X/*10*/    "CAN'T TRAIN",        'f',    /* cant train this one to do what I want */
  1572. X/*11*/    "INVALID FRME",        'i',    /* invalid frame */
  1573. X/*12*/    "MSG CONFMD",        'm',    /* roger */
  1574. X/*13*/    "RETRAIN",        'h',    /* !roger */
  1575. X/*14*/    "RTRN OK",        'j',    /* seems to have sunk in now */
  1576. X/*15*/    "BUSY",            '7',    /* someone's sitting on the line */
  1577. X/*16*/    "NO CARRIER",        '3',    /* someone chopped the line */
  1578. X/*17*/    "CRC ERR IN FRAME",    'e',    /* no point in pursuing this */
  1579. X/*18*/    "*UNKNOWN*",        '\0'    /* god knows what happened */
  1580. X};
  1581. X
  1582. X#define    OK        0    /* index into the lot above */
  1583. X#define    ANSWER_TONE    1
  1584. X#define    CONFIRM_TO_RX    2
  1585. X#define    CONNECT24    3
  1586. X#define    CONNECT48    4
  1587. X#define    CONNECT72    5
  1588. X#define    CONNECT96    6
  1589. X#define    CRP        7
  1590. X#define    WHAT_I_CAN    8
  1591. X#define    DCN        9
  1592. X#define    CANNOT_TRAIN    10
  1593. X#define    INVALID_FRM    11
  1594. X#define    MSG_CONFMD    12
  1595. X#define    RETRAIN        13
  1596. X#define    RTRN_OK        14
  1597. X#define    BUSY        15
  1598. X#define    NO_CARRIER    16
  1599. X#define    CRC_IN_FRAME    17
  1600. X#define    UNKNOWN        18
  1601. X#define    LAST_SIERRA_ANS    18
  1602. X
  1603. X#define    CONNECT_MIN    3
  1604. X#define    CONNECT_24    (sierra_cmds[3].retcode)
  1605. X#define    CONNECT_48    (sierra_cmds[4].retcode)
  1606. X#define    CONNECT_72    (sierra_cmds[5].retcode)
  1607. X#define    CONNECT_96    (sierra_cmds[6].retcode)
  1608. X#define    CONNECT_MAX    7
  1609. X
  1610. X#ifdef    USE_IXON
  1611. X#define    FLOW_CTL    4
  1612. X#define    XON_CHAR    0x11
  1613. X#define    XOFF_CHAR    0x13
  1614. X#else
  1615. X#define    FLOW_CTL    3
  1616. X#endif
  1617. X
  1618. X#define    MARKER        0x7e
  1619. X
  1620. Xstatic    int line_minlen;
  1621. X
  1622. Xstatic    unsigned char zeros[256];
  1623. Xint    have_dis, have_cfr, have_connect;
  1624. Xstatic    unsigned char last1, cur;
  1625. Xstatic    int eols, eof;
  1626. END_OF_FILE
  1627.   if test 4730 -ne `wc -c <'faxhost/sierracmd.h'`; then
  1628.     echo shar: \"'faxhost/sierracmd.h'\" unpacked with wrong size!
  1629.   fi
  1630.   # end of 'faxhost/sierracmd.h'
  1631. fi
  1632. if test -f 'sample.fax.list' -a "${1}" != "-c" ; then 
  1633.   echo shar: Will not clobber existing file \"'sample.fax.list'\"
  1634. else
  1635.   echo shar: Extracting \"'sample.fax.list'\" \(275 characters\)
  1636.   sed "s/^X//" >'sample.fax.list' <<'END_OF_FILE'
  1637. X# sample fax mailing list
  1638. X# phone no   ftao, starts with a colon        opt. comment    
  1639. X#------------------------------------------------------------
  1640. X12345678   :for the attention of fred bloggs    # comment
  1641. X9274356                        # no ftao
  1642. X87340875   :z. Hd. Herrn Meier            # needs it on time
  1643. END_OF_FILE
  1644.   if test 275 -ne `wc -c <'sample.fax.list'`; then
  1645.     echo shar: \"'sample.fax.list'\" unpacked with wrong size!
  1646.   fi
  1647.   # end of 'sample.fax.list'
  1648. fi
  1649. echo shar: End of archive 4 \(of 5\).
  1650. cp /dev/null ark4isdone
  1651. MISSING=""
  1652. for I in 1 2 3 4 5 ; do
  1653.     if test ! -f ark${I}isdone ; then
  1654.     MISSING="${MISSING} ${I}"
  1655.     fi
  1656. done
  1657. if test "${MISSING}" = "" ; then
  1658.     echo You have unpacked all 5 archives.
  1659.     rm -f ark[1-9]isdone
  1660. else
  1661.     echo You still must unpack the following archives:
  1662.     echo "        " ${MISSING}
  1663. fi
  1664. exit 0
  1665. exit 0 # Just in case...
  1666.